' 40_FileHash.VBS
' UMU @ 22:45 2011/8/10

Option Explicit

Dim wi
Dim file
Dim file_size
DIm file_attributes
Dim file_version
Dim file_hash

Set wi = CreateObject("WindowsInstaller.Installer")
file = "C:\WINDOWS\explorer.exe"
file_size = wi.FileSize(file)
file_attributes = wi.FileAttributes(file)
file_version = wi.FileVersion(file)
file_hash = GetFileHash(file)

Set wi = Nothing

MsgBox "File: " & file & vbCrLf &_
	"Size: " & file_size & vbCrLf &_
	"Attributes: " & file_attributes & vbCrLf &_
	"Version: " & file_version & vbCrLf &_
	"MD5: " & file_hash

Function GetFileHash(file_name)
	Dim file_hash
	Dim hash_value
	Dim i

	Set file_hash = wi.FileHash(file_name, 0)

	hash_value = ""

	For i = 1 To file_hash.FieldCount
		hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
	Next

	GetFileHash = hash_value

	Set file_hash = Nothing
End Function

Function BigEndianHex(int)
	Dim result
	Dim b1, b2, b3, b4

	result = Hex(int)
	b1 = Mid(result, 7, 2)
	b2 = Mid(result, 5, 2)
	b3 = Mid(result, 3, 2)
	b4 = Mid(result, 1, 2)

	BigEndianHex = b1 & b2 & b3 & b4
End Function